(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     72416,       1917]
NotebookOptionsPosition[     66607,       1722]
NotebookOutlinePosition[     66976,       1738]
CellTagsIndexPosition[     66933,       1735]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"ClebschGordan", "::", "\"\<tri\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"ClebschGordan", "::", "\"\<phy\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"SixJSymbol", "::", "\"\<tri\>\""}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.456663504453125*^9, 3.45666350465625*^9}, 
   3.5400697213648205`*^9, {3.540419092786145*^9, 3.5404191035032763`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
   "oFile", "=", 
    "\"\<C:\\\\Users\\\\FClab\\\\Rb_DFCS_data\\\\calculation\\\\Rb85_5D32.txt\
\>\""}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"output", " ", "file"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "pathname", "=", 
   "\"\<C:\\\\Users\\\\FClab\\\\Rb_DFCS_data\\\\2012-03-15\\\\\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"filename", "=", "\"\<scan-03a.txt\>\""}], ";"}], " ", 
  RowBox[{"(*", "datafile", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ExpSpecFile", "=", 
   RowBox[{"pathname", " ", "<>", " ", "filename"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dataTab", "=", " ", 
    RowBox[{"Import", "[", 
     RowBox[{"ExpSpecFile", ",", "\"\<Table\>\""}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Form", " ", "repetition", " ", "rate", " ", 
    RowBox[{"list", ".", " ", "Extract"}], " ", "from", " ", "actual", " ", 
    "data", " ", "file"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fOffsetList", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fRepList", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"While", "[", 
   RowBox[{
    RowBox[{"n", "\[LessEqual]", " ", 
     RowBox[{"Length", "[", "dataTab", "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"fRepList", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"fRepList", ",", 
         RowBox[{
          RowBox[{"dataTab", "[", 
           RowBox[{"[", "n", "]"}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";", 
      RowBox[{"(*", 
       RowBox[{"\"\<2\>\"", " ", "=", " ", 
        RowBox[{
        "2", "nd", " ", "column", " ", "of", " ", "the", " ", "datafile", " ",
          "contains", " ", "the", " ", "rep", " ", "rate"}]}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"fOffsetList", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"fOffsetList", ",", 
         RowBox[{
          RowBox[{"dataTab", "[", 
           RowBox[{"[", "n", "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"n", "++"}], ";"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "n", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5407383642928085`*^9, 3.5407383651238565`*^9}, 
   3.5407384082223215`*^9, {3.5407384849037075`*^9, 3.540738535987629*^9}, {
   3.54073857516387*^9, 3.5407386491461015`*^9}, 3.540738889429845*^9, {
   3.540745108955535*^9, 3.5407451485186567`*^9}, {3.540848253508688*^9, 
   3.54084827008387*^9}, {3.540848408095042*^9, 3.540848408260042*^9}, 
   3.5408669175047507`*^9, {3.540867091002291*^9, 3.5408670974310155`*^9}, {
   3.5408678595992303`*^9, 3.540867859802069*^9}, 3.5408698581548414`*^9, {
   3.5409158084003797`*^9, 3.5409158550065403`*^9}, {3.5409513220648627`*^9, 
   3.54095132418819*^9}, {3.5409577602740173`*^9, 3.540957764845022*^9}, {
   3.541341800877039*^9, 3.54134187009781*^9}}],

Cell[CellGroupData[{

Cell["Physical Constants", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["Speed of Light", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"c", "=", "29979245800"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"cm", "/", "sec"}], "*)"}]}]], "Input"],

Cell[CellGroupData[{

Cell["Planck's Constant", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"hBar", "=", 
    RowBox[{"1.054", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "27"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"ergs", " ", "sec"}], "*)"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Boltzmann Constant", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"kB", "=", 
    RowBox[{"1.380658", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "16"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"erg", "/", "K"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4566596001875*^9, 3.456659625953125*^9}, {
  3.45665968075*^9, 3.456659686359375*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Atomic Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["General Parameters", "Subtitle",
 CellChangeTimes->{{3.45666146840625*^9, 3.45666147296875*^9}}],

Cell["Nuclear Spin", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"i", "=", 
   RowBox[{"N", "[", 
    FractionBox["5", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.4730885615*^9, 3.473088561953125*^9}, 3.53632801824225*^9, {
   3.541341878217821*^9, 3.5413418805878243`*^9}}],

Cell[CellGroupData[{

Cell["Transit Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.45666389359375*^9, 3.456663897328125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]T", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", 
     RowBox[{"26.2", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456663726421875*^9, 3.4566637388125*^9}, {
   3.45666380203125*^9, 3.456663813921875*^9}, 3.4566922269375*^9, 
   3.5366835360235*^9, 3.538523997111776*^9, {3.541341873857815*^9, 
   3.5413418861378317`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\[Gamma]T"], "Input",
 CellChangeTimes->{{3.5370977448424997`*^9, 3.5370977478424997`*^9}}],

Cell[BoxData["3.816793893129771`*^7"], "Output",
 CellChangeTimes->{
  3.5370977484831247`*^9, 3.5370993198737497`*^9, 3.5372003887956247`*^9, 
   3.5372066606393747`*^9, 3.5377158492338753`*^9, 3.5377163977651253`*^9, 
   3.5377165059370003`*^9, 3.5377187334995003`*^9, 3.5377230515776253`*^9, 
   3.5377266707807503`*^9, 3.5377273007963753`*^9, 3.5377283786245003`*^9, 
   3.5377863226088753`*^9, 3.5377951561870003`*^9, 3.5378934362225275`*^9, 
   3.5378975449111457`*^9, 3.53789860202801*^9, 3.5378999196843243`*^9, 
   3.537899953754784*^9, 3.5378999864336414`*^9, 3.5379000231093063`*^9, 
   3.5379003060314026`*^9, 3.53790170389257*^9, 3.537901808709154*^9, 
   3.538523419654747*^9, 3.5385239998799343`*^9, 3.538582157352739*^9, 
   3.538605689013673*^9, 3.538606194785601*^9, 3.5386202300004067`*^9, 
   3.539140746247128*^9, 3.54007051916442*^9, 3.5400794365995765`*^9, 
   3.540088458157486*^9, 3.540421035566491*^9, 3.5405055556097393`*^9, 
   3.540669226692*^9, 3.54074522636565*^9, 3.5408503936599655`*^9, 
   3.5408698665176206`*^9, 3.5409163191080656`*^9, 3.5409513372560196`*^9, 
   3.540953049518824*^9, {3.5409531417208443`*^9, 3.5409531713259954`*^9}, 
   3.540957793035487*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Polarization", "Subsubtitle",
 CellChangeTimes->{{3.456663909203125*^9, 3.456663910671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"q1", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456663912765625*^9, 3.456663917453125*^9}, 
   3.456663957921875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"q2", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.4566639629375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659860875*^9}}],

Cell["Ground State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
   3.456659752203125*^9}, 3.45665980753125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SGnd", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665975521875*^9, 3.456659757859375*^9}, 3.4566598095625*^9, {
   3.541341889857837*^9, 3.541341896857847*^9}}],

Cell[CellGroupData[{

Cell["Ground State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jGnd", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665975521875*^9, 3.456659757859375*^9}, {3.5413419029678555`*^9, 
  3.5413419049278584`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.456662908015625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinGnd", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jGnd", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxGnd", "=", 
   RowBox[{"jGnd", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Hyperfine A", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
  3.45666040421875*^9}, {3.456660756828125*^9, 3.45666075759375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"aGnd", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"1011910813", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"From", " ", "Steck", " ", "review"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.4566605719375*^9}, {3.456660680015625*^9, 
  3.456660705609375*^9}, {3.45666076115625*^9, 3.4566607615625*^9}, {
  3.47308857578125*^9, 3.473088584546875*^9}, {3.47309640846875*^9, 
  3.473096424140625*^9}, {3.536335670945375*^9, 3.53633567542975*^9}, {
  3.539986000397787*^9, 3.539986002566191*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Hyperfine B", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
   3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
   3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
   3.45666040421875*^9}, 3.4566605775*^9, {3.45666076390625*^9, 
   3.45666076546875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"bGnd", "=", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.456660602203125*^9}, {3.45666063840625*^9, 
  3.45666063971875*^9}, {3.45666076803125*^9, 3.456660773828125*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659887765625*^9}}],

Cell["Intermediate State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}, {3.45665980753125*^9, 3.45665981840625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SInt", "=", 
   FractionBox["1", "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665975521875*^9, 3.456659757859375*^9}, {3.4566598095625*^9, 
  3.45665982178125*^9}}],

Cell[CellGroupData[{

Cell["Intermediate State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jInt", "=", 
   FractionBox["3", "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.473088588953125*^9, 
   3.47308858946875*^9}, 3.536333582476625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.456662923203125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinInt", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jInt", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxInt", "=", 
   RowBox[{"jInt", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
  3.456662927125*^9, 3.456662936640625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]Int", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", 
     RowBox[{"26.2", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]], "]"}]}], ";", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Seconds", " ", "From", " ", "Budker"}], ",", "Kimball", ",", " ",
     "DeMille"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.53668310449225*^9, 
  3.536683106007875*^9}, {3.5413419099378653`*^9, 3.5413419162678747`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Center of Gravity Energy", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Nu]Int", "=", 
   RowBox[{"SetPrecision", "[", 
    RowBox[{"384230406373000", ",", "20"}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "from", " ", "Steck"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.473088596515625*^9, 3.473088616875*^9}, {
   3.47308883840625*^9, 3.473088843484375*^9}, {3.473096433640625*^9, 
   3.473096439859375*^9}, {3.53633478836725*^9, 3.53633479311725*^9}, 
   3.536607319211*^9, {3.536607447226625*^9, 3.536607498007875*^9}, {
   3.53666646042975*^9, 3.5366664651485*^9}, {3.537893167558856*^9, 
   3.5378931893520937`*^9}, 3.5378943549667425`*^9, 3.5378974743522215`*^9, {
   3.5378985672711487`*^9, 3.53789856825395*^9}, {3.5378998431661897`*^9, 
   3.537899869374236*^9}, 3.5379017571978636`*^9, 3.538606282516619*^9, {
   3.539986512531087*^9, 3.539986513092688*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Hyperfine A", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
  3.45666040421875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"aInt", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"25002000", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "From", " ", "Steck"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.4566605719375*^9}, {3.473088627078125*^9, 
  3.4730886284375*^9}, {3.473096443796875*^9, 3.473096448328125*^9}, {
  3.5363357313985*^9, 3.536335734726625*^9}, {3.536607079039125*^9, 
  3.53660709955475*^9}, {3.536666472757875*^9, 3.536666476257875*^9}, {
  3.536683146882875*^9, 3.5366831523985*^9}, {3.5372022874831247`*^9, 
  3.5372022919049997`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Hyperfine B", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
   3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
   3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
   3.45666040421875*^9}, 3.4566605775*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bInt", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"25790000", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "From", " ", "Steck"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
   3.4566605581875*^9, 3.456660602203125*^9}, {3.45666063840625*^9, 
   3.45666063971875*^9}, 3.473088631296875*^9, {3.473096452546875*^9, 
   3.473096456171875*^9}, {3.536335742211*^9, 3.536335745961*^9}, {
   3.536607112711*^9, 3.536607116664125*^9}, 3.53666648311725*^9, {
   3.5366831642735*^9, 3.53668317030475*^9}, {3.5372023036862497`*^9, 
   3.5372023085924997`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659887765625*^9}, {
  3.456660101109375*^9, 3.4566601018125*^9}}],

Cell["Final State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}, {3.45665980753125*^9, 3.456659829375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SFin", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665975521875*^9, 3.456659757859375*^9}, {3.4566598095625*^9, 
   3.45665983434375*^9}, {3.536335431601625*^9, 3.536335431726625*^9}, 
   3.53634248861725*^9, {3.541341989241712*^9, 3.541341992897921*^9}}],

Cell[CellGroupData[{

Cell["Final State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659783546875*^9, 
  3.456659787671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jFin", "=", 
   RowBox[{"N", "[", 
    FractionBox["3", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.4566597779375*^9, 3.456659780921875*^9}, {3.456661545015625*^9, 
   3.456661545171875*^9}, 3.4569295484212503`*^9, {3.47308863565625*^9, 
   3.473088640640625*^9}, {3.536335439086*^9, 3.536335439226625*^9}, 
   3.5385845502476044`*^9, {3.5413419960661025`*^9, 3.541341997994213*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.45666294725*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinFin", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jFin", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxFin", "=", 
   RowBox[{"jFin", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
  3.456662927125*^9, 3.456662957578125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.456659988796875*^9, 3.45665998953125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]Fin", "=", 
    FractionBox["1", 
     RowBox[{"241.", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"Seconds", " ", "From", " ", "Heavens"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.4566600681875*^9, 3.45666007421875*^9}, {3.4566616303125*^9, 
  3.456661631765625*^9}, {3.4569295617493753`*^9, 3.4569295620150003`*^9}, {
  3.45951917796875*^9, 3.45951917865625*^9}, {3.536683236757875*^9, 
  3.536683244726625*^9}, {3.538582219701305*^9, 3.5385822378273416`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Energies, Matrix Elements and Transition Probablities", "Subtitle",
 CellChangeTimes->{{3.456681533796875*^9, 3.456681554234375*^9}}],

Cell["Formula for Calculating Energies with HFS", "Subsubtitle",
 CellChangeTimes->{{3.45666156509375*^9, 3.45666157378125*^9}, {
  3.456662570765625*^9, 3.4566625805625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Kappa]", "[", 
    RowBox[{"f_", ",", "j_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"f", 
     RowBox[{"(", 
      RowBox[{"f", "+", "1"}], ")"}]}], "-", 
    RowBox[{"j", 
     RowBox[{"(", 
      RowBox[{"j", "+", "1"}], ")"}]}], "-", 
    RowBox[{"i", 
     RowBox[{"(", 
      RowBox[{"i", "+", "1"}], ")"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45666169846875*^9, 3.456661713*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Delta]E", "[", 
    RowBox[{"a_", ",", "b_", ",", "f_", ",", "j_"}], "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"j", "\[NotEqual]", " ", 
       FractionBox["1", "2"]}], "&&", 
      RowBox[{"i", "\[NotEqual]", 
       FractionBox["1", "2"]}]}], ",", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], "a", " ", 
       RowBox[{"\[Kappa]", "[", 
        RowBox[{"f", ",", "j"}], "]"}]}], "+", 
      RowBox[{"b", " ", 
       FractionBox[
        RowBox[{
         RowBox[{
          FractionBox["3", "4"], 
          SuperscriptBox[
           RowBox[{"\[Kappa]", "[", 
            RowBox[{"f", ",", "j"}], "]"}], "2"]}], "+", 
         RowBox[{
          FractionBox["3", "4"], 
          RowBox[{"\[Kappa]", "[", 
           RowBox[{"f", ",", "j"}], "]"}]}], "-", 
         RowBox[{"i", 
          RowBox[{"(", 
           RowBox[{"i", "+", "1"}], ")"}], "j", 
          RowBox[{"(", 
           RowBox[{"j", "+", "1"}], ")"}]}]}], 
        RowBox[{"2", " ", "i", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "i"}], "-", "1"}], ")"}], "j", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "j"}], "-", "1"}], ")"}]}]]}]}], ",", 
     RowBox[{
      FractionBox["1", "2"], "a", " ", 
      RowBox[{"\[Kappa]", "[", 
       RowBox[{"f", ",", "j"}], "]"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456661820734375*^9, 3.45666183171875*^9}, {
   3.456662393875*^9, 3.456662397109375*^9}, {3.456683422046875*^9, 
   3.456683431546875*^9}, 3.460223934290625*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\[Nu]GndToInt", "[", 
    RowBox[{"f_", ",", "fPrime_"}], "]"}], "=", 
   RowBox[{"\[Nu]Int", "-", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aGnd", ",", "bGnd", ",", "f", ",", "jGnd"}], "]"}], "+", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aInt", ",", "bInt", ",", "fPrime", ",", "jInt"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Nu]GndToFin", "[", 
   RowBox[{"f_", ",", "fDPrime_"}], "]"}], ":=", 
  RowBox[{"2", " ", 
   RowBox[{"Switch", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"f", ",", "fDPrime"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3.", ",", "1."}], "}"}], ",", "385240679712000", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3.", ",", "2."}], "}"}], ",", "385240683216500", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3.", ",", "3."}], "}"}], ",", "385240689192100", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"3.", ",", "4."}], "}"}], ",", "385240698496000", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "1."}], "}"}], ",", "385242197577500", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "2."}], "}"}], ",", "385242201083900", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "3."}], "}"}], ",", "385242207058800", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2.", ",", "4."}], "}"}], ",", "385242216362900"}], 
    "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.45686233334375*^9, 3.4568623374375*^9}, 
   3.4572661415462503`*^9, {3.47308885534375*^9, 3.473088860125*^9}, {
   3.4730964853125*^9, 3.473096517875*^9}, {3.473097064765625*^9, 
   3.47309707559375*^9}, {3.536683396664125*^9, 3.53668342911725*^9}, {
   3.5385822740464134`*^9, 3.5385822762455387`*^9}, {3.538582433139513*^9, 
   3.538582435955674*^9}, {3.53858286930646*^9, 3.538583146448312*^9}, {
   3.5386057393735533`*^9, 3.5386058876180325`*^9}, {3.5413420027264833`*^9, 
   3.541342014136136*^9}}],

Cell[CellGroupData[{

Cell["Reduced Matrix Elements in J Basis", "Subsubtitle"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dRedJGndToInt", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"(", "4.51", ")"}], "1.28", " ", 
     SuperscriptBox["10", "6"]}], " ", 
    RowBox[{"(*", 
     RowBox[{"Hz", "/", 
      RowBox[{"(", 
       RowBox[{"V", "/", "cm"}], ")"}]}], "*)"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dRedJIntToFin", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{"e", " ", "a0"}]], 
     RowBox[{"\[Sqrt]", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             FractionBox["1", "2"]}], "+", "1"}], " ", ")"}], "3", " ", 
          "hBar", " ", 
          SuperscriptBox["c", "3"]}], 
         RowBox[{"4", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"2", " ", "\[Pi]", " ", "\[Nu]6P12To8S"}], ")"}], "3"]}]],
         "2.04", " ", 
        SuperscriptBox["10", "6"]}], ")"}]}], "1.28", " ", 
     SuperscriptBox["10", "6"]}], " ", 
    RowBox[{"(*", 
     RowBox[{"Hz", "/", 
      RowBox[{"(", 
       RowBox[{"V", "/", "cm"}], ")"}]}], "*)"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.4566056364375*^9, 3.4566056744375*^9}, {
  3.456662686453125*^9, 3.456662724453125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Reduced Matrix Elements in F Basis", "Subsubtitle",
 CellChangeTimes->{3.4566632656875*^9}],

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["dRedGndToInt", 
        RowBox[{"f", ",", "fPrime"}]], "=", 
       RowBox[{"\[Sqrt]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "fPrime"}], "+", "1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "f"}], "+", "1"}], ")"}], 
          SuperscriptBox[
           RowBox[{"SixJSymbol", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"jInt", ",", "fPrime", ",", "i"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"f", ",", "jGnd", ",", "1"}], "}"}]}], "]"}], "2"], 
          SuperscriptBox["dRedJGndToInt", "2"]}], ")"}]}]}], ";"}], ",", 
     RowBox[{"{", 
      RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"f", ",", "fMinGnd", ",", "fMaxGnd"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.456662795671875*^9, 3.456662835546875*^9}, {
  3.456663002453125*^9, 3.456663020171875*^9}, {3.5372063527331247`*^9, 
  3.5372063614518747`*^9}}],

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      SubscriptBox["dRedIntToFin", 
       RowBox[{"fPrime", ",", "fDPrime"}]], "=", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "fDPrime"}], "+", "1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "fPrime"}], "+", "1"}], ")"}], 
         SuperscriptBox[
          RowBox[{"SixJSymbol", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"jFin", ",", "fDPrime", ",", "i"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"fPrime", ",", "jInt", ",", "1"}], "}"}]}], "]"}], "2"], 
         SuperscriptBox["dRedJIntToFin", "2"]}], ")"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"fDPrime", ",", "fMinFin", ",", "fMaxFin"}], "}"}]}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.456663051265625*^9, 3.456663093375*^9}, {
   3.456663125046875*^9, 3.456663154296875*^9}, 3.456663192609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Matrix Elements in F Basis", "Subsubtitle",
 CellChangeTimes->{{3.456663276328125*^9, 3.456663278140625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["dGndToInt", 
            RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], "=", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"fPrime", "-", "mPrime"}]], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "1"}], "3"], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "q1", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], 
                RowBox[{"ThreeJSymbol", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"fPrime", ",", 
                    RowBox[{"-", "mPrime"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"n", "-", "2"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"f", ",", "m"}], "}"}]}], "]"}]}], ")"}], 
              SubscriptBox["dRedGndToInt", 
               RowBox[{"f", ",", "fPrime"}]]}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"m", ",", 
            RowBox[{"-", "f"}], ",", "f"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"mPrime", ",", 
          RowBox[{"-", "fPrime"}], ",", "fPrime"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"f", ",", "fMinGnd", ",", "fMaxGnd"}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666329196875*^9, 3.4566633891875*^9}, {3.456663993*^9,
   3.45666408128125*^9}, {3.45666411909375*^9, 3.456664121515625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["dIntToFin", 
            RowBox[{
            "fPrime", ",", "fDPrime", ",", "mPrime", ",", "mDPrime"}]], "=", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"fDPrime", "-", "mDPrime"}]], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "1"}], "3"], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "q2", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], 
                RowBox[{"ThreeJSymbol", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"fDPrime", ",", 
                    RowBox[{"-", "mDPrime"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"n", "-", "2"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"fPrime", ",", "mPrime"}], "}"}]}], "]"}]}], ")"}], 
              SubscriptBox["dRedIntToFin", 
               RowBox[{"fPrime", ",", "fDPrime"}]]}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"mPrime", ",", 
            RowBox[{"-", "fPrime"}], ",", "fPrime"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"mDPrime", ",", 
          RowBox[{"-", "fDPrime"}], ",", "fDPrime"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"fDPrime", ",", "fMinFin", ",", "fMaxFin"}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666329196875*^9, 3.456663489203125*^9}, {
  3.456664105703125*^9, 3.45666415221875*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Doppler Distribution Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"amu", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1.66053886", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "27"}]]}], ")"}], " ", 
    SuperscriptBox["10", "3"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mRb", "=", 
   RowBox[{"84.911789732", " ", "amu"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"temp", "=", "323"}], ";"}]}], "Input",
 CellChangeTimes->{{3.456606503203125*^9, 3.4566065051875*^9}, {
   3.456664763890625*^9, 3.456664790515625*^9}, {3.473097352640625*^9, 
   3.473097368078125*^9}, {3.536605457211*^9, 3.53660545749225*^9}, 
   3.5366060920235*^9, {3.536606131101625*^9, 3.536606151414125*^9}, 
   3.53666517880475*^9, 3.540317318104452*^9, {3.5406683893730965`*^9, 
   3.540668394139369*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Alpha]", "=", 
  RowBox[{"\[Sqrt]", 
   RowBox[{"(", 
    FractionBox[
     RowBox[{"2", " ", "kB", " ", "temp"}], "mRb"], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.45666479665625*^9, 3.456664796984375*^9}, {
  3.536606154070375*^9, 3.536606154336*^9}}],

Cell[BoxData["25150.741682876534`"], "Output",
 CellChangeTimes->{
  3.456606507140625*^9, {3.45666479275*^9, 3.4566647974375*^9}, 
   3.456665571578125*^9, 3.456862310515625*^9, 3.456862366828125*^9, 
   3.4569296331868753`*^9, 3.4569297765150003`*^9, 3.4572661977337503`*^9, 
   3.45918669084375*^9, 3.459275046734375*^9, 3.460224378384375*^9, 
   3.473088868703125*^9, 3.47309740371875*^9, 3.53633629755475*^9, 
   3.53634366186725*^9, 3.53641081774225*^9, 3.536608927414125*^9, 
   3.536609199507875*^9, 3.536609241226625*^9, 3.53666531361725*^9, 
   3.536665430320375*^9, 3.536666493632875*^9, 3.536673439601625*^9, 
   3.536679828976625*^9, 3.536683769164125*^9, 3.5369248005768747`*^9, 
   3.5370104724049997`*^9, 3.5370105363581247`*^9, 3.5370161739362497`*^9, 
   3.5370325607956247`*^9, 3.5370397431706247`*^9, 3.5372003901237497`*^9, 
   3.5372066617331247`*^9, 3.5377158502651253`*^9, 3.5377163988276253`*^9, 
   3.5377165069526253`*^9, 3.5377187614213753`*^9, 3.5377230526245003`*^9, 
   3.5377266718432503`*^9, 3.5377273018432503`*^9, 3.5377283796870003`*^9, 
   3.5377863238120003`*^9, 3.5377951572651253`*^9, 3.5378934844890127`*^9, 
   3.5378943842323937`*^9, 3.537897574831998*^9, 3.537898602683211*^9, 
   3.537899921135127*^9, 3.537899954456785*^9, 3.5378999875256433`*^9, 
   3.5379000242325077`*^9, 3.5379003070454044`*^9, 3.5379017052185726`*^9, 
   3.537901809364355*^9, 3.5385234209528217`*^9, 3.538583203911598*^9, 
   3.538605955712927*^9, 3.538606212892637*^9, 3.5386202304684076`*^9, 
   3.5391407467619286`*^9, 3.5400705201940203`*^9, 3.540079437629434*^9, 
   3.5400884592027125`*^9, 3.5404210366584845`*^9, 3.540505556764125*^9, 
   3.5406692278152*^9, 3.5407452274264913`*^9, 3.540850394314003*^9, 
   3.5408698676253767`*^9, 3.540916320262473*^9, 3.54095133841136*^9, 
   3.540953055402399*^9, {3.540953142766466*^9, 3.5409531723716173`*^9}, 
   3.540957795001176*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"dopplerDist", "[", "v_", "]"}], ":=", 
  RowBox[{"Exp", "[", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox["v", "2"], 
     SuperscriptBox["\[Alpha]", "2"]]}], "]"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["Offset Frequency", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f0", "=", 
   RowBox[{"20.", " ", 
    SuperscriptBox["10", "6"]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.536606229336*^9, 3.536606229476625*^9}, 
   3.536609033945375*^9, {3.53667308924225*^9, 3.536673089507875*^9}, {
   3.536679694632875*^9, 3.5366796956485*^9}, {3.536683666961*^9, 
   3.5366836672735*^9}, 3.5370104677487497`*^9, 3.5370325434049997`*^9, {
   3.539116492685813*^9, 3.5391164930290136`*^9}, 3.539127919839781*^9, 
   3.54006974098962*^9}],

Cell[CellGroupData[{

Cell["Rep Rate Range", "Subsubtitle",
 CellChangeTimes->{{3.45666493915625*^9, 3.456664941796875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fRepMin", "=", 
   RowBox[{"Min", "[", "fRepList", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fRepMax", "=", 
   RowBox[{"Max", "[", "fRepList", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAmIQzdCQuk7g4EtHBoZ9ELohdBeEL7EPwn9xEMI3PwTh
s56D8OMhdIPTEVkwn/coiG52WHucM/IVkPY7DaYP+LR0gfmL28H0gSbN1WD+
O30IXZe8DkzvSYXQzKEbwOrEI0H0odKbf1WjQPRDKH171how3TwHRL/4/XHz
ymgQ3bAFTFer7V8Npvsh9O+th8+B+fOOgOnfdbP+gGnp2RB66gYIfRpMOz3c
+OsfkC44+hVMf/sZ9h9Ef9n1AUwf4f8hzRzzyvEWo5QMiNapefXYP/aV4xX+
licgWkpilXVI3CtHNqZOexB9avXVdaoJrxz3taduANErbum4aQLpTcZLwPSc
H5WuF4D0wu4mNxC9eCt7dX7iK8czC3fUgmgAaZzeCA==
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"fRepAvg", "=", 
   FractionBox[
    RowBox[{"fRepMin", "+", "fRepMax"}], "2"]}], ";"}]], "Input",
 CellChangeTimes->{{3.456665192578125*^9, 3.456665212796875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Modes", "Subsubtitle",
 CellChangeTimes->{{3.4566813895*^9, 3.45668139175*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n1NomA", "=", 
   RowBox[{"Round", "[", 
    FractionBox[
     RowBox[{"\[Nu]GndToInt", "[", 
      RowBox[{"fMinGnd", ",", "fMinInt"}], "]"}], "fRepAvg"], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n1NomB", "=", 
   RowBox[{"Round", "[", 
    FractionBox[
     RowBox[{"\[Nu]GndToInt", "[", 
      RowBox[{"fMaxGnd", ",", "fMaxInt"}], "]"}], "fRepAvg"], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456665147765625*^9, 3.456665238296875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n2NomA", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     FractionBox["1", "fRepAvg"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Nu]GndToFin", "[", 
        RowBox[{"fMinGnd", ",", "fMinFin"}], "]"}], "-", 
       RowBox[{"\[Nu]GndToInt", "[", 
        RowBox[{"fMinGnd", ",", "fMinInt"}], "]"}]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n2NomB", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     FractionBox["1", "fRepAvg"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Nu]GndToFin", "[", 
        RowBox[{"fMaxGnd", ",", "fMaxFin"}], "]"}], "-", 
       RowBox[{"\[Nu]GndToInt", "[", 
        RowBox[{"fMaxGnd", ",", "fMaxInt"}], "]"}]}], ")"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456665147765625*^9, 3.4566653128125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n1List", "=", 
  RowBox[{"Union", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n1NomA", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n1NomB", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.456665383359375*^9, 3.45666546196875*^9}, {
  3.456665618125*^9, 3.456665620609375*^9}, {3.5372066701081247`*^9, 
  3.5372066730768747`*^9}, {3.5377187815151253`*^9, 3.5377187956088753`*^9}, {
  3.5377946040932503`*^9, 3.5377946077338753`*^9}, {3.5377949385776253`*^9, 
  3.5377949450151253`*^9}, {3.537893207650926*^9, 3.537893217432143*^9}, {
  3.5385234618671618`*^9, 3.53852346744048*^9}, {3.538583211301021*^9, 
  3.5385832213905983`*^9}, {3.540317323815516*^9, 3.540317328496716*^9}, {
  3.540419143002223*^9, 3.5404191470893974`*^9}, {3.5405055344876103`*^9, 
  3.5405055415075207`*^9}, {3.5408485075682387`*^9, 3.540848510502358*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1536914", ",", "1536915", ",", "1536916", ",", "1536917", ",", "1536918", 
   ",", "1536919", ",", "1536920", ",", "1536925", ",", "1536926", ",", 
   "1536927", ",", "1536928", ",", "1536929", ",", "1536930", ",", 
   "1536931"}], "}"}]], "Output",
 CellChangeTimes->{{3.456665438765625*^9, 3.4566654623125*^9}, 
   3.456665580453125*^9, 3.456665621328125*^9, 3.456862310546875*^9, 
   3.456862366859375*^9, 3.4569296485931253`*^9, 3.4569297765462503`*^9, 
   3.4572661977806253`*^9, 3.459186690890625*^9, 3.45927504678125*^9, 
   3.460224378415625*^9, 3.473088868765625*^9, 3.473097403765625*^9, 
   3.536336297586*^9, 3.5363436618985*^9, 3.5364108178985*^9, 
   3.536608927476625*^9, 3.536609199570375*^9, 3.53660924130475*^9, 
   3.536665313711*^9, 3.536665430351625*^9, 3.536666494570375*^9, 
   3.53667343967975*^9, 3.5366798290235*^9, 3.536683769195375*^9, 
   3.5369248006862497`*^9, 3.5370104724674997`*^9, 3.5370105363893747`*^9, 
   3.5370161740299997`*^9, 3.5370325608737497`*^9, 3.5370397432018747`*^9, 
   3.5372003901549997`*^9, 3.5372066858112497`*^9, 3.5377158503120003`*^9, 
   3.5377163988745003`*^9, 3.5377165069838753`*^9, {3.5377187773901253`*^9, 
   3.5377187996401253`*^9}, 3.5377230526713753`*^9, 3.5377266718745003`*^9, 
   3.5377273018901253`*^9, 3.5377283797182503`*^9, 3.5377863238432503`*^9, 
   3.5377951597182503`*^9, 3.5377952082182503`*^9, 3.5378885178745003`*^9, 
   3.5378886511713753`*^9, 3.5378934975618353`*^9, 3.5378943959636145`*^9, 
   3.5378975760644*^9, 3.5378986039312134`*^9, 3.5378999222739286`*^9, 
   3.537899955689187*^9, 3.5378999886644454`*^9, 3.5379000352617273`*^9, 
   3.5379003070610046`*^9, 3.5379017052653723`*^9, 3.5379018093799553`*^9, 
   3.53852346796751*^9, 3.5385832325952387`*^9, 3.5385833396283607`*^9, 
   3.538605963470371*^9, 3.5386062129246387`*^9, 3.5386202304684076`*^9, 
   3.539140746793129*^9, 3.5400705202096205`*^9, 3.5400794376450377`*^9, 
   3.5400884592339134`*^9, 3.5404210366740847`*^9, 3.5405055568421235`*^9, 
   3.5406692278464003`*^9, 3.540745227457692*^9, 3.540850394350005*^9, 
   3.5408698676877856`*^9, 3.5409163202780733`*^9, 3.5409513384581976`*^9, 
   3.5409530554804306`*^9, {3.5409531428132854`*^9, 3.540953172434043*^9}, 
   3.5409577950479774`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n2List", "=", 
  RowBox[{"Union", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n2NomA", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n2NomB", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.456665383359375*^9, 3.45666546196875*^9}, {
  3.456665585125*^9, 3.45666558903125*^9}, {3.456665624328125*^9, 
  3.456665626734375*^9}, {3.5372066753268747`*^9, 3.5372066804518747`*^9}, {
  3.5377187866401253`*^9, 3.5377187978745003`*^9}, {3.5377946088901253`*^9, 
  3.5377946116245003`*^9}, {3.5377949469370003`*^9, 3.5377949552338753`*^9}, {
  3.5378932198813477`*^9, 3.537893225029357*^9}, {3.538523470201638*^9, 
  3.5385234737538414`*^9}, {3.538583224257762*^9, 3.5385832272179317`*^9}, {
  3.540317329979096*^9, 3.540317333848888*^9}, {3.540419150271777*^9, 
  3.540419153875354*^9}, {3.5405055431298995`*^9, 3.5405055508206005`*^9}, {
  3.54084851227337*^9, 3.5408485150005035`*^9}, {3.5408671458492966`*^9, 
  3.5408671586911416`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1545004", ",", "1545005", ",", "1545006", ",", "1545007", ",", "1545008", 
   ",", "1545009", ",", "1545010", ",", "1545011", ",", "1545012", ",", 
   "1545013"}], "}"}]], "Output",
 CellChangeTimes->{{3.45666558171875*^9, 3.456665590046875*^9}, 
   3.456665627203125*^9, 3.456862310578125*^9, 3.456862366875*^9, 
   3.4569296494368753`*^9, 3.4569297765618753`*^9, 3.4572661977962503`*^9, 
   3.459186690921875*^9, 3.4592750468125*^9, 3.46022437843125*^9, 
   3.47308886878125*^9, 3.47309740378125*^9, 3.53633629761725*^9, 
   3.536343661914125*^9, 3.536410817961*^9, 3.536608927507875*^9, 
   3.536609199570375*^9, 3.536609241320375*^9, 3.536665313726625*^9, 
   3.536665430414125*^9, 3.53666649461725*^9, 3.536673439695375*^9, 
   3.536679829039125*^9, 3.536683769211*^9, 3.5369248007018747`*^9, 
   3.5370104725299997`*^9, 3.5370105364049997`*^9, 3.5370161740456247`*^9, 
   3.5370325608893747`*^9, 3.5370397432174997`*^9, 3.5372003901706247`*^9, 
   3.5372066858268747`*^9, 3.5377158503276253`*^9, 3.5377163988901253`*^9, 
   3.5377165070151253`*^9, {3.5377187784057503`*^9, 3.5377188007963753`*^9}, 
   3.5377230526870003`*^9, 3.5377266718901253`*^9, 3.5377273019057503`*^9, 
   3.5377283797338753`*^9, 3.5377863238588753`*^9, 3.5377951597338753`*^9, 
   3.5377952082338753`*^9, 3.5378885188745003`*^9, 3.5378886524213753`*^9, 
   3.5378934975774355`*^9, 3.5378943959792147`*^9, 3.53789757608*^9, 
   3.5378986039312134`*^9, 3.537899922289529*^9, 3.5378999557047873`*^9, 
   3.5378999886644454`*^9, 3.5379000352773275`*^9, 3.537900307076605*^9, 
   3.5379017052965727`*^9, 3.5379018093955555`*^9, 3.538523474095861*^9, 
   3.53858323261524*^9, 3.538583339640362*^9, 3.5386059634833717`*^9, 
   3.5386062129356394`*^9, 3.5386202304684076`*^9, 3.5391407468087287`*^9, 
   3.5400705202096205`*^9, 3.5400794376450377`*^9, 3.5400884592339134`*^9, 
   3.5404210366740847`*^9, 3.5405055568733234`*^9, 3.540669227862*^9, 
   3.540745227457692*^9, 3.5408503943610053`*^9, 3.5408698677189903`*^9, 
   3.5409163202936735`*^9, 3.54095133847381*^9, 3.5409530555116434`*^9, {
   3.5409531428288918`*^9, 3.540953172449649*^9}, 3.5409577950635786`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Equation", "Subsubtitle",
 CellChangeTimes->{{3.456681410328125*^9, 3.456681413015625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Omega]L", "[", 
    RowBox[{"n_", ",", "fR_", ",", "f0_"}], "]"}], ":=", 
   RowBox[{"2", " ", "\[Pi]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"n", " ", "fR"}], "+", "f0"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456678515171875*^9, 3.45667856759375*^9}, {
   3.4566795630625*^9, 3.45667956609375*^9}, 3.541342033713256*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate 2-photon Lineshape over Doppler Distribution", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"transProb", "[", 
     RowBox[{"\[Omega]1_", ",", "\[Omega]2_", ",", "v_"}], "]"}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"fDPrime", "=", "fMinFin"}], "fMaxFin"], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"f", "=", "fMinGnd"}], "fMaxGnd"], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"], 
          "/", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "\[Pi]", " ", 
                RowBox[{"\[Nu]GndToFin", "[", 
                 RowBox[{"f", ",", "fDPrime"}], "]"}]}], "-", 
               RowBox[{"\[Omega]1", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  FractionBox["v", "c"]}], ")"}]}], "-", 
               RowBox[{"\[Omega]2", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  FractionBox["v", "c"]}], ")"}]}]}], ")"}], "2"], "+", 
            FractionBox[
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"]}],
            ")"}]}], ")"}], 
        FractionBox["1", 
         RowBox[{
          RowBox[{"2", "f"}], "+", "1"}]], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"m", "=", 
           RowBox[{"-", "f"}]}], "f"], 
         RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{"mDPrime", "=", 
            RowBox[{"-", "fDPrime"}]}], "fDPrime"], 
          SuperscriptBox[
           RowBox[{"Abs", "[", 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"fPrime", "=", "fMinInt"}], "fMaxInt"], 
             RowBox[{
              UnderoverscriptBox["\[Sum]", 
               RowBox[{"mPrime", "=", 
                RowBox[{"-", "fPrime"}]}], "fPrime"], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 FractionBox[
                  RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], "2"], "/", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], ")"}]}], "2"], 
                   "+", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Omega]1", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox["v", "c"]}], ")"}]}], "-", " ", 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    RowBox[{"\[Nu]GndToInt", "[", 
                    RowBox[{"f", ",", "fPrime"}], "]"}]}]}], ")"}]}], ")"}]}], 
                SubscriptBox["dGndToInt", 
                 RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], 
                SubscriptBox["dIntToFin", 
                 RowBox[{
                 "fPrime", ",", "fDPrime", ",", "mPrime", ",", "mDPrime"}]]}],
                ")"}]}]}], "]"}], "2"]}]}]}], ")"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fnToIntegrate", "[", 
     RowBox[{"fR_", ",", "fOffset_", ",", "v_"}], "]"}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"n1", "=", "1"}], 
      RowBox[{"Length", "[", "n1List", "]"}]], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"n2", "=", "1"}], 
       RowBox[{"Length", "[", "n2List", "]"}]], 
      RowBox[{
       RowBox[{"dopplerDist", "[", "v", "]"}], 
       RowBox[{"transProb", "[", 
        RowBox[{
         RowBox[{"\[Omega]L", "[", 
          RowBox[{
           RowBox[{
           "n1List", "\[LeftDoubleBracket]", "n1", "\[RightDoubleBracket]"}], 
           ",", "fR", ",", "fOffset"}], "]"}], ",", 
         RowBox[{"\[Omega]L", "[", 
          RowBox[{
           RowBox[{
           "n2List", "\[LeftDoubleBracket]", "n2", "\[RightDoubleBracket]"}], 
           ",", "fR", ",", "fOffset"}], "]"}], ",", "v"}], "]"}]}]}]}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vIntSpec", "[", 
    RowBox[{
     RowBox[{"fRep_", "?", "NumericQ"}], ",", 
     RowBox[{"fO_", "?", "NumericQ"}]}], "]"}], ":=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{"fnToIntegrate", "[", 
      RowBox[{"fRep", ",", "fO", ",", "v"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", 
       RowBox[{"-", "60000"}], ",", "60000"}], "}"}], ",", 
     RowBox[{"MinRecursion", "\[Rule]", "3"}], ",", 
     RowBox[{"MaxRecursion", "\[Rule]", "10"}], ",", 
     RowBox[{"AccuracyGoal", "\[Rule]", "4"}], ",", 
     RowBox[{"PrecisionGoal", "\[Rule]", "2"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.538523548469115*^9, 3.5385235524603434`*^9}, {
   3.5385832601238136`*^9, 3.538583261230877*^9}, {3.540848472525355*^9, 
   3.540848473295356*^9}, 3.54086719166176*^9, {3.5409528020624995`*^9, 
   3.5409528033422737`*^9}, {3.540952840206008*^9, 3.5409528445915747`*^9}, {
   3.541342041728714*^9, 3.5413420421537385`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calculation", "Subtitle",
 CellChangeTimes->{{3.456681446140625*^9, 3.45668144753125*^9}, {
  3.5379007941050625`*^9, 3.537900798020669*^9}},
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"\[Delta]f", "=", "0.25"}], ";", " ", 
   RowBox[{"(*", 
    RowBox[{"step", " ", "size", " ", "in", " ", "Hz"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"fr", "=", "fRepMin"}], ";", "\[IndentingNewLine]", 
   RowBox[{"fRepList", "=", 
    RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Form", " ", "the", " ", "fRepList"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"While", " ", "[", 
    RowBox[{
     RowBox[{"fr", "<", "fRepMax"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"fRepList", "=", 
         RowBox[{"Append", "[", 
          RowBox[{"fRepList", ",", "fr"}], "]"}]}], ";"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"fr", "+=", "\[Delta]f"}], ";"}]}], "}"}]}], "]"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{
  3.456746939*^9, {3.5372003913424997`*^9, 3.5372003937643747`*^9}, {
   3.5378885919057503`*^9, 3.5378885935932503`*^9}, {3.537901719773398*^9, 
   3.53790172663741*^9}, 3.5379017983975363`*^9, 3.5385235615778646`*^9, 
   3.538524008413422*^9, {3.540084171622327*^9, 3.540084172433584*^9}, {
   3.5407348220722055`*^9, 3.5407348287835894`*^9}, {3.540738727637591*^9, 
   3.5407387301117325`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"rFrep", "=", 
   RowBox[{"Min", "[", "fRepList", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tt", "=", 
    RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "distribute", " ", "NIntegrate", " ", "among", " ", "CPU", " ", "cores"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"specList", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SetSharedVariable", "[", "specList", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ttt", "=", 
   RowBox[{
    RowBox[{"AbsoluteTime", "[", "]"}], "-", "tt"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Execution time = \>\"", ",", "ttt"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ParallelDo", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"specList", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
          "fRepList", "\[LeftDoubleBracket]", "kk", "\[RightDoubleBracket]"}],
           "-", "rFrep"}], ")"}], ",", 
        RowBox[{"Chop", "[", 
         RowBox[{"vIntSpec", "[", 
          RowBox[{
           RowBox[{
           "fRepList", "\[LeftDoubleBracket]", "kk", 
            "\[RightDoubleBracket]"}], ",", 
           RowBox[{
           "fOffsetList", "\[LeftDoubleBracket]", "kk", 
            "\[RightDoubleBracket]"}]}], "]"}], "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"kk", ",", 
      RowBox[{"Length", "[", "fRepList", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ttt", "=", 
   RowBox[{
    RowBox[{"AbsoluteTime", "[", "]"}], "-", "tt"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Execution time = \>\"", ",", "ttt"}], "]"}]}], "Input",
 CellChangeTimes->{{3.540700569251876*^9, 3.540700631292281*^9}, {
   3.540704216154398*^9, 3.540704252064907*^9}, {3.5407042969296446`*^9, 
   3.5407042987392097`*^9}, 3.5407055725228095`*^9, {3.54073392927214*^9, 
   3.540734037008302*^9}, {3.5413420490421324`*^9, 3.5413420924124393`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Execution time = \"\>", "\[InvisibleSpace]", 
   "903.6583688`10.407549268454632"}],
  SequenceForm["Execution time = ", 903.6583688`10.407549268454632],
  Editable->False]], "Print",
 CellChangeTimes->{3.540747329754535*^9, 3.540851130039632*^9, 
  3.5408707803333225`*^9, 3.540917297560753*^9, 3.5409550666189723`*^9, 
  3.540958699345975*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Sort", "[", "specList", "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.540706143000181*^9, 3.540706178083682*^9}, {
  3.540867890914451*^9, 3.540867891366938*^9}, {3.54134214312251*^9, 
  3.5413421536725245`*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw1mHk81dkbx1W2FmuWlLp22Zeyx/3Yd/e67qVlBkVRKaZFUs3VtE3a1KjR
YqupTJmhEloRISRJoqmISdGvJCqq4Yfvc/3j9X59nuf5nOecc88592oui+Ut
nygmJhY9QUxs7L/oL/Ft7IOhP8vZDDWwr3eo7vsnZJxL67+0sU8q/m4VsHac
w19/e82O3/tT0pvuO8S9bN1jaV7298f1/P7/+tmpkV/rVrlWEH9hL++1UdJU
HueWoeFvbOe+XaHTHUQ8ws7Ycm35qdBx/t/WkQm4Gm8Q3d9dTvokVBULT5y7
LWIJWH1lhV56IcqXQq6u4/R7UncpfzIqB2JW3twv4qmI7gycVL18nOV3iMni
i8JqKfvUcf7VWUweN+I3Zl2/L4qXx9HlEedPD9+l+VCESfpQbYVtJemKiM5e
ySrfV0m6EqTlLLV6ykS6Eirqj/K0JatIV4Fbi33zMc9xjr89ooLlvsHD35NF
rIrwT1sq45+IeAZsE1clr06sJlbD+SpnlW/nqqneLLwLtVMpbRCxOi7ZaOxL
Mb1H8epYaNSZ2rRTxLNxzD1wY8abezS+OVh5w3tJm0MNMQueJkrxDzNqmHih
BtjBO79v/3GcKzTENLHrZNzsap/aMXZoE2riqob5++aSWqqviYRYjVs/W9ZR
vha2Xjrj4N1BPKKF3A3XVN6H36d8bXh0eQ9pd92n8evgwl+1PrOi60nXwdZY
74aFEx5Qvg5acizm9J8iFupi6c8zj/iqN5Cui3VxBR3laxooXw9rVLpkN9US
j+hBxzq7UFf9IeXrw+x4qvPHbeN8OX1EH2ejw8WH2x4y40mai1fZT+c0Lm+k
/LmIjQzJUr3aSPkGKN2Q+VTB9BH5G8BqeNbu1IuPyN8QCYeOpJw3bqL6hkit
OdipebqJ6hsh4c/bD5u7myjfCC+f3eodrH1MujGm5MjmRSQ1k26MPinlNZy5
T8jfBP/b9PuRpRrEIyZoam0O/Hb1CeMnNMVB/QcP4qa10vhN4RHhcrnXq4Xq
m6EzImiLVIVIN8N+d/mFn48/HeWk9F62OT6drNGacPQfhoXmkJsqlbBh9Qsm
v9QcvKfT2hWOtTH6iDmOZOh681e3MzosEHbz4/wM85fkZwGLW++S5v03zq31
JRZQ2BOivquvg/ItkFEzuEm1r5P8LSHnEvnp/rRX5G+J8Nohw91eXeRvCdnq
vKKjRa9p/JaY8uNC3hHfbvKfB7m0yx9fGr2l9ZgHD9WFO4U/vGPqlczDfI1W
P8HXXtp/8/Hxgvu5ZQf7yH8+/qgujDoa10/+87HuZu6BadWfyH8+rlwqeJN8
YZDyrWBoueKvzTbfyd8K288t2mdgJwamfyus25FWrJ4yEYy/FfrORxyQ+yLO
6GLWuCAmGNhhIMnobGu4b3Q+ciZZmmGhNa6dyXipxZ48Fr9MvtQaW/Nm1qV9
JBazwb0jZjY6ElMo3wbDNnXbms+N8eh8C22QZLLN9lbrVMav1AYSszav662Y
Rv62yHXcGpOYLcswbKGbcDFXOkCe8m2hdC7yyfShcXZoK7FFQ9zxboQrMDxi
C9vs8AXPTyqQvx0MZzU66eUTC+2wizvBbW+ZAvnb4eRAcWvNTUXyt4fzxOuF
cbJKTD22Pa4fu80/MlOF8u1hsE8wqUFdjfztIZMR/mxl1Gzq3wE7k1sbm3ia
lO+AozH7Cg7K6lK+A3aoDwcJHQzI3wGLQgTWF/NNGH3EAUNHBWrcE2Y0/gX4
IUqhepaVJeUvQMPpxNX9SZaUvwCBjhaDRX4WNH5HfB5coWY/xZzmzxGadzdv
Xj1oRPmOyGR3KXsU6VO+I8pMbMOeBOvQ/Dki5eHtkQWbNSnfCXJZgY9jH81h
+ktyQl9TZVC4hDr174QGpS/2Ya4zafxOSO8zPyLmrcbEgw2FbgMrxVA12n9s
3GZtfX1gSI32Hxt7+6KNHybMovEDhg36MZzesfkcve5ZgPs1vcR7lzVoPMCh
V46KH5W1GT0MePXHjG/TLfWoPrBP9+/oyf1zmfqZwKqD6se3pJky8SUAZ35q
jnI9zVc7oNFzYvpZznzyd8Zr5XcZUqusGdYYZRX/MzW7rGk9nNElyXF2OG1L
/s5QbcxXNXhMLHTGZakBGYcbtkx+ljMOhUzKb7kyzhbSpc54ytIPfZJHersz
Zuy8xLaWsyN/F5zLinRwqqd6LBds3fHbiS81NgyzXbDYISMqp9eKiQ93wao3
6rrZdvPI3wW8vEIZu+qx9U+KeZ3pgt+yFxTLxxjTerug8WFBiMyNuUx8mwsm
SXEjjuXpMjwymq/aqr47VZv6d0W0nThXIlSL+ndFeW58iOon2h/hrvipR9vH
wJd0oSselD9etNeD8rNc0fComVf/VIfW2xWZOb9ck3HQI39XpJXYSazl6ZO/
K7xW1qTv3kX7U8MNnc/NnTttKJ7tButfp+YFndchfzcERWwy3qAl8nfDimnJ
HJe+OUx8phvEpS+f0l8wk9bfDW5TU7LNF6uQvxt2l+Xc6p4ynebfHW+m49G/
KfJMPdYo/1JntOWCDPm7Y9qlr9xlW6fQ+rtjhervP92Nkqb95w6lbTsa+3ol
yd8dRbVyL7aK03la4g5p6y9yHtkS5O+O+mWLhmdWEY+4w/LdafwkpHiWB4wG
sqJmv5Ki/e+BeInEkD3bJ1P/HlhuYII0Mxny9xj9gIQcWLZWntlvWR7QtV6h
+PtzRerfA7/1SF5P/qZE/h4w1jN9uniQ5mPEAwkDftqhVaq0/zzh2XVX/MoC
YrYnFg5a/Vq2RZn8PXFbK7Gj+wvVF3riUqTb+tj58tS/JzZ65jjGmE2l/j2x
L10V6jckaf974luw+PZlsyeNMkbPH09USh5uVvAQI38vlA68z1ZREN1nXmBt
TjQ+y6b7LtwLVw9KCI33j92HY/5e0OHc4O326Wf0LC8MRs9ZLL+U7tMSL2i/
mKT+7Ardt+1e+GdP9CFljXdM/ogXPjvWLp/Z08PEs7yRzH6xXs9PdJ97Y5qB
Q/Seo68ZPcwbn84s5f8j0UX3szcOr7ustKbsX4YzvbGgIm2p+ulOpn6JNyYv
Wrx6uKiD4TZvmBStq5Kpf0n+3jgl9p0VMtjOMMsHTjPnWia/ec4w2wepbLfD
ii1tDIf5oKO4Xzz83Ph7yEI6yQcyF/7Ylnv+GaNn+uD696iHcpH/kL8Psm6y
DjxIf0r+PojLXaesfHXs/TV6Xoz44Hns4eCwJy3k7wu1oR0F56XpvQZfSOo3
7PKze0L9++K4sqlC6Npmmn9f2DkMV8q/f0z+vlg2yefvci69J0t9wSkpPCF1
q4kZb7svPnu0aEmaNVH/vlBfrt/+PecRMx6WH1xORYcZGj6i95AfTI+kGYYV
NJK/HzoqXA0HXRrpfecHLv/Uh9nlD2n+/aDcnqFqs5i4xA+GFQq2G2Tofd3u
B62sa7ee5zbQ+88PGXPTorUCGqh/fwzn+qlvEyNm+0PMSdbvr7Z6Znxh/hh9
q7h4RD+g/v0hbWbyQcyd9Ex/rHl//rTudfp+UeqP+jC3/2IW3Gf82vyRrBkT
t/F2HfXvj0/7tZbeZxOzAmAyw2nT5Zpamv8ALGEX+OgsrCX/ABQXNs/4paOG
9l8AgjfZVrlsIc4MgK1T3ZoLc2qY+S4NwLyIlpcjTfdo/QOgpCmr58QXfX/j
4KuqUebpqaSzOMiW6oaSsJrmn4N5Cq0J0UuqmXrhHLyVGMz7SW6MMfo+4GC2
V55Td1kVrT8HZ+vrG1h+xCUcfL5YrbJhbhX1z8HAYqNFEa8rqX8OjDYbHLh9
cYxHv87LcbExep1tph0xiwsLteEz9kbEZly0X7evr+yl78fgQv1fpcLGa3cZ
ncPFpvKXTnOSSA/nYr7zx5PZXncZv1gumjjlKWvVxhiF/UIurpSn3219U8HE
p3ARnKikd7G4gvrhwuRtd4Tpsgqmfh4XO+Nyky8uJb2EC9s7l591WZL+gIuo
m45LOuVJb+OCJYx8wR+g3zc+cLFqXbHW/vui3zsC8VuO+8XFZ8up/0BY+C36
Y8l20jUCUZO+c+OOVaSbBeLuypCvSwNIRyB2Re6TdZlHOicQ7/sEtZvVSA8P
RHO5dJHthHLqPxCLih6luPfcYeKFgaj7e8L1gvo7jH4oENcvlHMqi4kzA+HB
5bmu3X+HqZcfCKfD0gUfrCm/ZHS8fVqHG4XEDwJx8uOUaPX1lN8WiKGIS3Z6
EWOcNEP8w+j4Nryc80hA+kggIucsbFvDpnw5Ho5zNP0l/Sheg4fsONP/cs3I
35wHieydR7X0KJ7Nw8qc/tYaDWIOD5o+UZckVSk/nAe7aT09ndPHWGPX21ge
tOO1UzldZXR+8HA+bpB9QoLqp/CQX5ijkioh6p+HPIc9z52Gymj9eeh1HTCM
GiQu4SG++Fy+5gRR/zxwO64dyxQnbuPhm9fHn/98VcbU6+VBsPfm/hyRPsLD
w7/5QVpTRf0HIbfut/dyA1SfFYRVs/n94ZNJNwvCp/JLKw6rivoPwkjw4bfQ
FvUfhJRju0vemov6D8LNOwrzBCA9NghPypw+7/akfpOCENopyLH8QdR/EJIU
i3braIj6D0KXgmyRzE7KzwtC+9y7f2kfEq1/EP5rjW9NPCnqPwglz3p9rHKo
XnsQZi9Sn3g2/w7zeesNglfi7JcmB0T9B2HvnStvl4r2nxwf3tPSX21pI53F
R8KOF8KZMrSfzfm4phR7zkKX9jubj5KCj11ebrS/OXysNg0YtPiR9DA+7v1Y
YRO3lTiWj60BFzuepBEL+Sj/rGO8p7icGd8hPmI4StNXtVC9TD5aCw/Hn+yn
+Dw+Hpz6ugAadF6U8lFV3H5gs4fo889HcuPMhD/5xG18VB7c11O/heI/8BEo
HqomU0YsJoDHZ2HdxP9RvJwAv4p7BLybTecVS4Bfrqns1+XReWUmgEaMrfru
HaLzT4B+bdenPxeIzj8BZrx+V2j9ljhMgJ7T++vy9en3wjgB2Dcz1BLC6TwV
CvDvi/fue9OJDwlg4t4Z2NNBnClAy2dzuQOGVYx/ngDvFgcYR8bS74ulAnxa
bNhw4O8qZr81COC35OhUrz46/9sEOJ6yXnF1VDVTr1eAJW/8E2p3iu6fYPy7
fvuZ5GekywXjokF1Dfzu0fkXDOMj+x4bZN5j6psHQ1Z+9ZbfJ9bQ+gcjPHmJ
0fc1xJxgKP3xXjr0cQ2df8E41ZIvsd6pltY/GDdytP+8l1vL/j9kYsBI
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.540958699423977*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.540958120416177*^9, 3.540958120447378*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.540954028484724*^9, 3.540954028500328*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.540871191827626*^9, 3.5408711918432274`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.54086987225923*^9, 3.540869872290435*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"oFile", ",", 
   RowBox[{"Sort", "[", "specList", "]"}], ",", "\"\<Table\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5385255757270675`*^9, 3.5385255896838655`*^9}, 
   3.538525623446797*^9, {3.5385833530161266`*^9, 3.5385833644487805`*^9}, 
   3.53860597902026*^9, {3.539128057485654*^9, 3.539128079783929*^9}, {
   3.5400697767604203`*^9, 3.54006978362442*^9}, {3.540317344849708*^9, 
   3.5403173454114523`*^9}, {3.5407385554737434`*^9, 3.540738559119952*^9}, {
   3.5409513288407745`*^9, 3.5409513314949336`*^9}, {3.5409577837218695`*^9, 
   3.5409577881836696`*^9}, {3.541342158042531*^9, 3.5413421647225404`*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\Administrator\\\\Dropbox\\\\RbDFS\\\\\
calculation\\\\2012-03-15\\\\Rb85_5D32.txt\"\>"], "Output",
 CellChangeTimes->{3.5409586994707775`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1272, 684},
WindowMargins->{{Automatic, 21}, {Automatic, 103}},
CellContext->Notebook,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 511, 13, 72, "Input"],
Cell[1059, 35, 3205, 81, 292, "Input"],
Cell[CellGroupData[{
Cell[4289, 120, 76, 1, 49, "Subtitle"],
Cell[4368, 123, 37, 0, 28, "Subsubtitle"],
Cell[4408, 125, 148, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[4581, 134, 40, 0, 28, "Subsubtitle"],
Cell[4624, 136, 223, 8, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4884, 149, 107, 1, 28, "Subsubtitle"],
Cell[4994, 152, 330, 10, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5373, 168, 75, 1, 49, "Subtitle"],
Cell[5451, 171, 102, 1, 49, "Subtitle"],
Cell[5556, 174, 149, 2, 28, "Subsubtitle"],
Cell[5708, 178, 301, 7, 47, "Input"],
Cell[CellGroupData[{
Cell[6034, 189, 105, 1, 28, "Subsubtitle"],
Cell[6142, 192, 439, 11, 47, "Input"],
Cell[CellGroupData[{
Cell[6606, 207, 105, 1, 31, "Input"],
Cell[6714, 210, 1198, 17, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7961, 233, 101, 1, 28, "Subsubtitle"],
Cell[8065, 236, 219, 6, 31, "Input"],
Cell[8287, 244, 167, 5, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8503, 255, 106, 1, 49, "Subtitle"],
Cell[8612, 258, 222, 3, 28, "Subsubtitle"],
Cell[8837, 263, 305, 7, 47, "Input"],
Cell[CellGroupData[{
Cell[9167, 274, 199, 3, 28, "Subsubtitle"],
Cell[9369, 279, 287, 7, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9693, 291, 109, 1, 28, "Subsubtitle"],
Cell[9805, 294, 301, 8, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10143, 307, 389, 5, 28, "Subsubtitle"],
Cell[10535, 314, 914, 17, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11486, 336, 413, 6, 28, "Subsubtitle"],
Cell[11902, 344, 554, 9, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[12505, 359, 115, 1, 49, "Subtitle"],
Cell[12623, 362, 249, 3, 28, "Subsubtitle"],
Cell[12875, 367, 250, 6, 47, "Input"],
Cell[CellGroupData[{
Cell[13150, 377, 199, 3, 28, "Subsubtitle"],
Cell[13352, 382, 275, 6, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13664, 393, 115, 1, 28, "Subsubtitle"],
Cell[13782, 396, 347, 9, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14166, 410, 252, 3, 28, "Subsubtitle"],
Cell[14421, 415, 695, 16, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15153, 436, 315, 4, 28, "Subsubtitle"],
Cell[15471, 442, 1176, 21, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16684, 468, 350, 5, 28, "Subsubtitle"],
Cell[17037, 475, 960, 18, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18034, 498, 371, 5, 28, "Subsubtitle"],
Cell[18408, 505, 962, 18, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19419, 529, 155, 2, 49, "Subtitle"],
Cell[19577, 533, 240, 3, 28, "Subsubtitle"],
Cell[19820, 538, 399, 8, 47, "Input"],
Cell[CellGroupData[{
Cell[20244, 550, 199, 3, 28, "Subsubtitle"],
Cell[20446, 555, 476, 9, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20959, 569, 104, 1, 28, "Subsubtitle"],
Cell[21066, 572, 347, 9, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21450, 586, 293, 4, 28, "Subsubtitle"],
Cell[21746, 592, 764, 16, 47, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22559, 614, 139, 1, 49, "Subtitle"],
Cell[22701, 617, 175, 2, 28, "Subsubtitle"],
Cell[22879, 621, 442, 15, 31, "Input"],
Cell[23324, 638, 1602, 47, 56, "Input"],
Cell[24929, 687, 2101, 50, 212, "Input"],
Cell[CellGroupData[{
Cell[27055, 741, 57, 0, 28, "Subsubtitle"],
Cell[27115, 743, 1384, 45, 76, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28536, 793, 97, 1, 28, "Subsubtitle"],
Cell[28636, 796, 1254, 33, 99, "Input"],
Cell[29893, 831, 1184, 32, 99, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31114, 868, 115, 1, 28, "Subsubtitle"],
Cell[31232, 871, 2134, 54, 275, "Input"],
Cell[33369, 927, 2166, 55, 275, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[35584, 988, 89, 1, 49, "Subtitle"],
Cell[35676, 991, 790, 19, 74, "Input"],
Cell[CellGroupData[{
Cell[36491, 1014, 280, 7, 53, "Input"],
Cell[36774, 1023, 1902, 27, 30, "Output"]
}, Open  ]],
Cell[38691, 1053, 222, 7, 50, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38950, 1065, 73, 1, 49, "Subtitle"],
Cell[39026, 1068, 39, 0, 28, "Subsubtitle"],
Cell[39068, 1070, 495, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[39588, 1084, 102, 1, 28, "Subsubtitle"],
Cell[39693, 1087, 679, 15, 52, "Input"],
Cell[40375, 1104, 198, 5, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40610, 1114, 90, 1, 28, "Subsubtitle"],
Cell[40703, 1117, 507, 15, 87, "Input"],
Cell[41213, 1134, 833, 25, 87, "Input"],
Cell[CellGroupData[{
Cell[42071, 1163, 1218, 26, 31, "Input"],
Cell[43292, 1191, 2288, 34, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45617, 1230, 1319, 28, 31, "Input"],
Cell[46939, 1260, 2184, 32, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[49172, 1298, 102, 1, 28, "Subsubtitle"],
Cell[49277, 1301, 392, 10, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[49718, 1317, 112, 1, 49, "Subtitle"],
Cell[49833, 1320, 5370, 139, 305, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55240, 1464, 185, 3, 49, "Subtitle"],
Cell[55428, 1469, 1302, 32, 152, "Input"],
Cell[CellGroupData[{
Cell[56755, 1505, 2194, 62, 212, "Input"],
Cell[58952, 1569, 394, 8, 23, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59383, 1582, 376, 8, 31, "Input"],
Cell[59762, 1592, 5547, 94, 244, "Output"]
}, Open  ]],
Cell[65324, 1689, 92, 1, 31, "Input"],
Cell[65419, 1692, 92, 1, 31, "Input"],
Cell[65514, 1695, 94, 1, 31, "Input"],
Cell[65611, 1698, 91, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[65727, 1703, 674, 11, 31, "Input"],
Cell[66404, 1716, 175, 2, 30, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
